home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / dired-mule.el.z / dired-mule.el
Encoding:
Text File  |  1998-05-21  |  1.2 KB  |  37 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;
  3. ;; File:          dired-mule.el
  4. ;; Dired Version: #Revision: 7.9 $
  5. ;; RCS:
  6. ;; Description:   MULE support for dired.
  7. ;; Created:       Sun Jul 17 14:45:12 1994 by sandy on ibm550
  8. ;; 
  9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10.  
  11. ;;; Acknowledgements:
  12. ;;
  13. ;;  Ishikawa Ichiro for sending MULE patches and information.
  14.  
  15. (require 'dired)
  16.  
  17. (defun dired-find-file (&optional coding-system)
  18.   "In dired, visit the file or directory named on this line."
  19.   (interactive "ZCoding-system: ")
  20.   (find-file (dired-get-filename) coding-system))
  21.  
  22. (defun dired-find-file-other-window (&optional display coding-system)
  23.   "In dired, visit this file or directory in another window.
  24. With a prefix, the file is displayed, but the window is not selected."
  25.   (interactive "P\nZCoding-system: ")
  26.   (if display
  27.       (dired-display-file coding-system)
  28.     (find-file-other-window (dired-get-filename) coding-system)))
  29.  
  30. (defun dired-display-file (&optional coding-system)
  31.   "In dired, displays this file or directory in the other window."
  32.   (interactive "ZCoding-system: ")
  33.   (display-buffer
  34.    (find-file-noselect (dired-get-filename) coding-system)))
  35.  
  36. ;;; end of dired-mule.el
  37.